  �?  ~   k820309    �          2021.12.0   �UOg                                                                                                          
       B:\1.) Business Cycles and Insurance - Paper\JPE Macro - Final Submission\Replication Package\BCI_JPEM\BCI\BCI_TB.f90 BCI_TB                      @                                      
                                                                   
                                                                                                                   11                                                                                                                                                                                                                           2                                                          
                
                       �?        1.0                                                          
                
                 �������?        0.65                                                          
                
                 8��d�`�?        0.0398                                                     	     
                
                 ˡE����?        0.0205                                                     
     
                
                 ˡE����?        0.0205                                                          
                
                 J+��?        0.9715                                                          
                
                 ��n���?        0.4805                                                          
                
                 �E���Ԩ?        0.0485                                                          
                
                       �?        0.50                                                          
                
                       �?        0.50                                                          
                   
                  =�U����?                                                                  
                
                 F]k�SU�?        0.333333                                                          
                
                 �(\����?        0.53                                                          
                   
                  �.\sG�?                                                                  
                
                                 0.0                                                          
                
                       �?        1.0                                                                                                B                                                                                                                           3                                                                                                            2                                                          
                
                        @        2.0                                                                                             2               50                                                                                             �               250                                                          
                   
                      e���                                                                  
                
                 �G�z�?        0.345                                                                                             �               160#         @                                                                #XGRID     #XVAL !   #X_LOW "   #X_HIGH #   #NX $   #IX %   #OMEGA_X &            
                                                               
    p          5 O p            5 O p                                    
                                          !     
                
                                           "                     
                                           #                     
                                           $                                                               %                                                               &     
       #         @                                            '                    #SWITCH_SCENARIO (   #AVG_K )   #SIGMA_K *   #NU_K0 +   #NU_K1 ,   #NU_K2 -   #AVG_L .   #SIGMA_L /   #NU_L0 0   #NU_L1 1   #NU_L2 2             
                                           (                     D                                         )     
                 D                                         *     
                 D                                         +                   
     p          p            p                                    D                                         ,                   
     p          p            p                                    D                                         -                   
     p          p            p                                    D                                         .     
                 D                                         /     
                 D                                         0                   
     p          p            p                                    D                                         1                   
     p          p            p                                    D                                         2                   
     p          p            p                          #         @                                            3                    #SWITCH_SCENARIO 4   #ZGRID 5   #LAMBDA 6   #XI 7   #IOTA 8             
                                           4                     D                                         5                   
     p          p            p                                    D                                         6                   
     p          p            p                                    D                                         7                   
 	    p          p            p                                    D                                         8                   
 
    p          p            p                          #         @                                            9                    #SWITCH_SCENARIO :   #UPSILON_D ;   #UPSILON_R <   #UPSILON_BAR =             
                                           :                     D                                         ;                   
     p          p            p                                    D                                         <                   
     p          p            p                                    D                                         =                   
     p          p            p                          #         @                                            >                    #N ?   #XI @   #LAMBDA A   #UPSILON_D B   #PI C             
                                           ?                     
                                          @     
                
                                          A     
                
                                          B     
               D                                         C                    
       p        5 � p        r ?   p          5 � p        r ?     5 � p        r ?       5 � p        r ?     5 � p        r ?                     #         @                                            D                    #NI E   #NE F   #NN G   #NB H   #PI_E I   #PI_N J   #E_INDEX K   #N_INDEX L   #B_INDEX M   #I_INDEX N   #PI_I O             
                                           E                     
                                           F                     
                                           G                     
                                           H                    
                                          I                    
      p        5 � p        r F   p          5 � p        r F     5 � p        r F       5 � p        r F     5 � p        r F                              
                                          J                    
      p        5 � p        r G   p          5 � p        r G     5 � p        r G       5 � p        r G     5 � p        r G                              D                                          K                         p          5 � p        r E       5 � p        r E                              D                                          L                         p          5 � p        r E       5 � p        r E                              D                                          M                         p          5 � p        r E       5 � p        r E                              D                                          N                             p        5 � p        r G   p        5 � p        r F   p          5 � p        r F     5 � p        r G     5 � p        r H       5 � p        r F     5 � p        r G     5 � p        r H                              D                                         O                    
         p        5 � p        r E   p        5 � p        r E   p          5 � p        r E     5 � p        r E     p            5 � p        r E     5 � p        r E     p                          #         @                                            P                    #NZ Q   #RHO_Z1 R   #RHO_Z2 S   #PI_Z T   #CUM_Z U             
                                           Q                     
                                          R     
                
                                          S     
               D                                         T                    
       p        5 � p        r Q   p          5 � p        r Q     5 � p        r Q       5 � p        r Q     5 � p        r Q                              D                                         U                    
       p        5 � p        r Q   p          5 � p        r Q     5 � p        r Q       5 � p        r Q     5 � p        r Q                     #         @                                            V                    #BETA W   #CHI X   #CONSUMPTION Y   #EV Z   #U_VAL [             
                                          W     
                
                                          X     
                
                                          Y     
                
                                          Z     
                D                                         [     
       #         @                                            \                    #ND ]   #XGRID ^   #DISCOUNT _   #IB `   #MINB a             
                                           ]                    
                                          ^                    
    p          5 � p        r ]       5 � p        r ]                              
                                          _                    
    p          5 � p        r ]       5 � p        r ]                               D                                          `                      D                                         a     
       #         @                                            b                    #IBAR c   #BETA d   #CHI e   #A_VAL f   #INCOME g   #DISCOUNT h   #AGRID i   #EV j   #MAXV k   #MAXG l   #MAXC m   #MAXQ n             
                                           c                     
                                          d     
                
                                          e     
                
                                          f     
                
                                          g     
                
                                          h     2              
    p          p 2           p 2                                   
                                          i     �              
    p          p �           p �                                   
                                          j     �              
    p          p �           p �                                   D                                         k     
                 D                                         l     
                 D                                         m     
                 D                                         n     
       #         @                                            o                 	   #NX p   #E_INDEX q   #N_INDEX r   #UPSILON_R s   #GAMMA_J t   #EGRID u   #I_INCOME v   #J_INCOME w   #INCOME_GRID x             
  @                                        p                     
                                           q     B                  p          p B           p B                                   
                                           r     B                  p          p B           p B                                   
                                          s     
                
                                          t     �              
    p          p �           p �                                   
                                          u                   
     p          p            p                                   D                                          v                     !    p          5 � p        r p       5 � p        r p                              D                                          w                     "    p          5 � p        r p       5 � p        r p                              D @                                       x                    
 #    p          5 � p        r p       5 � p        r p                     #         @                                            y                    #CUM_PI z   #RAND_X |   #NX {   #IX }            
  @                                       z                    
 $   p          5 � p        r {       5 � p        r {                               
  @                                       |     
                
  @                                        {                     D                                          }               �   �      fn#fn    %  H   J   BCI_PAR    m  H   J   FORTRAN_TB    �  z       NE+BCI_PAR    /  x       RP+BCI_PAR    �  y       NZ+BCI_PAR       {       Z_G+BCI_PAR !   �  |       LAMBDA_G+BCI_PAR      ~       XI_G+BCI_PAR    �  ~       IOTA_G+BCI_PAR      ~       IOTA_B+BCI_PAR    �  ~       Z_B+BCI_PAR !     ~       LAMBDA_B+BCI_PAR    �  ~       XI_B+BCI_PAR #     |       UPSILON_DG+BCI_PAR #   �  |       UPSILON_RG+BCI_PAR &     x       UPSILON_BAR_G+BCI_PAR #   {  �       UPSILON_DB+BCI_PAR #   �  |       UPSILON_RB+BCI_PAR &   w	  x       UPSILON_BAR_B+BCI_PAR    �	  {       ZERO+BCI_PAR    j
  {       ONE+BCI_PAR    �
  x       NI+BCI_PAR    ]  y       NN+BCI_PAR    �  y       NB+BCI_PAR    O  {       SIGMA+BCI_PAR    �  z       ND+BCI_PAR    D  {       NA+BCI_PAR #   �  x       DISUTILITY+BCI_PAR    7  }       Y_BAR+BCI_PAR    �  {       NJ+BCI_PAR )   /  �       INTERPOLATION+FORTRAN_TB /   �  �   a   INTERPOLATION%XGRID+FORTRAN_TB .   t  H   a   INTERPOLATION%XVAL+FORTRAN_TB /   �  H   a   INTERPOLATION%X_LOW+FORTRAN_TB 0     H   a   INTERPOLATION%X_HIGH+FORTRAN_TB ,   L  H   a   INTERPOLATION%NX+FORTRAN_TB ,   �  H   a   INTERPOLATION%IX+FORTRAN_TB 1   �  H   a   INTERPOLATION%OMEGA_X+FORTRAN_TB "   $  �       FORECASTING_RULES 2   �  H   a   FORECASTING_RULES%SWITCH_SCENARIO (   C  H   a   FORECASTING_RULES%AVG_K *   �  H   a   FORECASTING_RULES%SIGMA_K (   �  �   a   FORECASTING_RULES%NU_K0 (   o  �   a   FORECASTING_RULES%NU_K1 (     �   a   FORECASTING_RULES%NU_K2 (   �  H   a   FORECASTING_RULES%AVG_L *   �  H   a   FORECASTING_RULES%SIGMA_L (   7  �   a   FORECASTING_RULES%NU_L0 (   �  �   a   FORECASTING_RULES%NU_L1 (   o  �   a   FORECASTING_RULES%NU_L2 '     �       AGGREGATE_FLUCTUATIONS 7   �  H   a   AGGREGATE_FLUCTUATIONS%SWITCH_SCENARIO -   �  �   a   AGGREGATE_FLUCTUATIONS%ZGRID .   }  �   a   AGGREGATE_FLUCTUATIONS%LAMBDA *     �   a   AGGREGATE_FLUCTUATIONS%XI ,   �  �   a   AGGREGATE_FLUCTUATIONS%IOTA    Q  �       UI_POLICIES ,   �  H   a   UI_POLICIES%SWITCH_SCENARIO &   -  �   a   UI_POLICIES%UPSILON_D &   �  �   a   UI_POLICIES%UPSILON_R (   e  �   a   UI_POLICIES%UPSILON_BAR       �       EMP_TRANSITIONS "   �  H   a   EMP_TRANSITIONS%N #   �  H   a   EMP_TRANSITIONS%XI '     H   a   EMP_TRANSITIONS%LAMBDA *   [  H   a   EMP_TRANSITIONS%UPSILON_D #   �  ,  a   EMP_TRANSITIONS%PI     �   �       IND_TRANSITIONS #   �!  H   a   IND_TRANSITIONS%NI #   �!  H   a   IND_TRANSITIONS%NE #   !"  H   a   IND_TRANSITIONS%NN #   i"  H   a   IND_TRANSITIONS%NB %   �"  ,  a   IND_TRANSITIONS%PI_E %   �#  ,  a   IND_TRANSITIONS%PI_N (   	%  �   a   IND_TRANSITIONS%E_INDEX (   �%  �   a   IND_TRANSITIONS%N_INDEX (   �&  �   a   IND_TRANSITIONS%B_INDEX (   ='  �  a   IND_TRANSITIONS%I_INDEX %   �(  |  a   IND_TRANSITIONS%PI_I     U*  �       AGG_TRANSITIONS #   �*  H   a   AGG_TRANSITIONS%NZ '   "+  H   a   AGG_TRANSITIONS%RHO_Z1 '   j+  H   a   AGG_TRANSITIONS%RHO_Z2 %   �+  ,  a   AGG_TRANSITIONS%PI_Z &   �,  ,  a   AGG_TRANSITIONS%CUM_Z    
.  �       UTILITY    �.  H   a   UTILITY%BETA    �.  H   a   UTILITY%CHI $   !/  H   a   UTILITY%CONSUMPTION    i/  H   a   UTILITY%EV    �/  H   a   UTILITY%U_VAL     �/  �       BORROWING_LIMIT #   |0  H   a   BORROWING_LIMIT%ND &   �0  �   a   BORROWING_LIMIT%XGRID )   �1  �   a   BORROWING_LIMIT%DISCOUNT #   <2  H   a   BORROWING_LIMIT%IB %   �2  H   a   BORROWING_LIMIT%MINB    �2  �       GRID_SEARCH !   �3  H   a   GRID_SEARCH%IBAR !   �3  H   a   GRID_SEARCH%BETA     )4  H   a   GRID_SEARCH%CHI "   q4  H   a   GRID_SEARCH%A_VAL #   �4  H   a   GRID_SEARCH%INCOME %   5  �   a   GRID_SEARCH%DISCOUNT "   �5  �   a   GRID_SEARCH%AGRID    96  �   a   GRID_SEARCH%EV !   �6  H   a   GRID_SEARCH%MAXV !   7  H   a   GRID_SEARCH%MAXG !   e7  H   a   GRID_SEARCH%MAXC !   �7  H   a   GRID_SEARCH%MAXQ $   �7  �       INCOME_DISTRIBUTION '   �8  H   a   INCOME_DISTRIBUTION%NX ,   9  �   a   INCOME_DISTRIBUTION%E_INDEX ,   �9  �   a   INCOME_DISTRIBUTION%N_INDEX .   ;:  H   a   INCOME_DISTRIBUTION%UPSILON_R ,   �:  �   a   INCOME_DISTRIBUTION%GAMMA_J *   ;  �   a   INCOME_DISTRIBUTION%EGRID -   �;  �   a   INCOME_DISTRIBUTION%I_INCOME -   w<  �   a   INCOME_DISTRIBUTION%J_INCOME 0   3=  �   a   INCOME_DISTRIBUTION%INCOME_GRID    �=  x       FUTURE_INDEX $   g>  �   a   FUTURE_INDEX%CUM_PI $   #?  H   a   FUTURE_INDEX%RAND_X     k?  H   a   FUTURE_INDEX%NX     �?  H   a   FUTURE_INDEX%IX 